#INCLUDE "rwmake.ch"

/*/
�����������������������������������������������������������������������������
�����������������������������������������������������������������������������
�������������������������������������������������������������������������ͻ��
���Programa  �NOVO4     � Autor � AP6 IDE            � Data �  21/08/11   ���
�������������������������������������������������������������������������͹��
���Descricao � Codigo gerado pelo AP6 IDE.                                ���
���          �                                                            ���
�������������������������������������������������������������������������͹��
���Uso       � AP6 IDE                                                    ���
�������������������������������������������������������������������������ͼ��
�����������������������������������������������������������������������������
�����������������������������������������������������������������������������
/*/

User Function EnviaSZ2

Local   aEstSZ2
Local   nC
Private oIncSZ2


RpcSetType(3)
RpcSetEnv("99","01")

oIncSZ2 := WSSZ2INCLUSAO():NEW()

aEstSZ2 := WSClassNew("SZ2INCLUSAO_ESTRUSZ2")
nC := 1

SZ2->(DBSetOrder(1))
SZ2->(DBGoTop())
While !SZ2->(EOF()) //.And. nC<=10
	aEstSZ2:CSZ2_FILIAL  := SZ2->Z2_FILIAL
	aEstSZ2:CSZ2_COMANDA := SZ2->Z2_COMANDA
	aEstSZ2:CSZ2_HORA    := SZ2->Z2_HORA
	aEstSZ2:CSZ2_HRPAGO  := SZ2->Z2_HRPAGO
	aEstSZ2:CSZ2_ITEM    := SZ2->Z2_ITEM
	aEstSZ2:CSZ2_MESA    := SZ2->Z2_MESA
	aEstSZ2:CSZ2_MOTCANC := UPPER(SZ2->Z2_MOTCANC)
	aEstSZ2:CSZ2_PAGO    := SZ2->Z2_PAGO
	aEstSZ2:CSZ2_PRODUTO := SZ2->Z2_PRODUTO
	aEstSZ2:CSZ2_USER    := SZ2->Z2_USER
	aEstSZ2:DSZ2_DATA    := SZ2->Z2_DATA
	aEstSZ2:DSZ2_DTPAGO  := SZ2->Z2_DTPAGO
	aEstSZ2:NSZ2_QUANT   := SZ2->Z2_QUANT
	aEstSZ2:NSZ2_VLTOTAL := SZ2->Z2_VLTOTAL
	aEstSZ2:NSZ2_VLUNIT  := SZ2->Z2_VLUNIT
	
	If oIncSZ2:INCSZ2("FSWM!R@NT35",aEstSZ2)
		//MsgBox("Erro ao gravar SZ2")
		cTeste := ""
	EndIf
	
	nC++
	SZ2->(DBSkip())
EndDo

cTeste := ""

RpcCloseEnv()

Return
